home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 2.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 34 39 3a 33 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:49:33 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 61 6d 65 |s-20.3/l|isp/game|
|000000a0| 73 2f 68 61 6e 6f 69 2e | 65 6c 0a 3b 3b 3b 20 65 |s/hanoi.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)). (|
|000001e0| 65 72 72 6f 72 20 22 60 | 68 61 6e 6f 69 2e 65 6c |error "`|hanoi.el|
|000001f0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|00000200| 6f 72 20 45 6d 61 63 73 | 20 32 30 22 29 29 0a 0a |or Emacs| 20"))..|
|00000210| 28 6f 72 20 28 62 6f 75 | 6e 64 70 20 27 63 75 72 |(or (bou|ndp 'cur|
|00000220| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 29 20 |rent-loa|d-list) |
|00000230| 28 73 65 74 71 20 63 75 | 72 72 65 6e 74 2d 6c 6f |(setq cu|rrent-lo|
|00000240| 61 64 2d 6c 69 73 74 20 | 6e 69 6c 29 29 0a 0a 0a |ad-list |nil))...|
|00000250| 28 64 65 66 61 6c 69 61 | 73 20 27 68 61 6e 6f 69 |(defalia|s 'hanoi|
|00000260| 2d 74 6f 70 6f 73 20 23 | 5b 28 72 6f 77 20 63 6f |-topos #|[(row co|
|00000270| 6c 29 20 22 c0 09 21 88 | c2 79 88 0b 75 87 22 20 |l) "..!.|.y..u." |
|00000280| 5b 67 6f 74 6f 2d 6c 69 | 6e 65 20 72 6f 77 20 30 |[goto-li|ne row 0|
|00000290| 20 63 6f 6c 5d 20 32 5d | 29 0a 23 40 35 38 20 54 | col] 2]|).#@58 T|
|000002a0| 6f 77 65 72 73 20 6f 66 | 20 48 61 6e 6f 69 20 64 |owers of| Hanoi d|
|000002b0| 69 76 65 72 73 69 6f 6e | 2e 20 20 41 72 67 75 6d |iversion|. Argum|
|000002c0| 65 6e 74 20 69 73 20 6e | 75 6d 62 65 72 20 6f 66 |ent is n|umber of|
|000002d0| 20 72 69 6e 67 73 2e 1f | 0a 28 64 65 66 61 6c 69 | rings..|.(defali|
|000002e0| 61 73 20 27 68 61 6e 6f | 69 20 23 5b 28 6e 72 69 |as 'hano|i #[(nri|
|000002f0| 6e 67 73 29 20 22 08 c1 | 58 ab 84 c2 c3 21 88 c4 |ngs) "..|X....!..|
|00000300| 1d c4 1e 06 c7 c8 20 21 | 53 1e 07 c9 c8 20 21 89 |...... !|S.... !.|
|00000310| 1e 09 ca a5 1e 0b 0e 07 | 08 54 56 ab 86 0e 0b 08 |........|.TV.....|
|00000320| 56 ac a6 cc 20 88 c7 c8 | 20 21 53 89 16 07 08 54 |V... ...| !S....T|
|00000330| 56 ab 8b 0e 09 ca a5 89 | 16 0b 08 56 ac 8b c2 cd |V.......|...V....|
|00000340| 08 54 ca 5f 08 ce 5c 5c | 23 88 0e 07 cf 5a 08 54 |.T._..\\|#....Z.T|
|00000350| 56 ab 86 0e 07 cf 5a aa | 82 0e 07 89 15 08 5a d0 |V.....Z.|......Z.|
|00000360| 5a 0e 0b 53 0d 42 0e 0b | cf 5f 53 0d 42 0e 0b d1 |Z..S.B..|._S.B...|
|00000370| 5f 53 0d 42 d2 08 c4 5c | 22 1e 13 1e 14 1e 15 1e |_S.B...\|".......|
|00000380| 16 1e 06 c1 1e 17 c1 08 | 57 ab a8 0e 13 0e 17 d8 |........|W.......|
|00000390| c4 d9 0e 17 89 5c 5c cf | 5c 5c da 0e 17 db a6 5c |.....\\.|\\.....\|
|000003a0| 5c 5c 22 d9 0e 17 89 5c | 5c cf 5c 5c dc 5c 22 23 |\\"....\|\.\\.\"#|
|000003b0| 49 88 0e 17 54 89 16 17 | aa 54 29 dd de 21 88 c4 |I...T...|.T)..!..|
|000003c0| 16 1f e0 70 21 88 e1 20 | 88 c1 1e 17 0e 17 0d 57 |...p!.. |.......W|
|000003d0| ab 91 0e 17 54 16 17 e2 | dc 0e 09 53 5c 22 88 e3 |....T...|...S\"..|
|000003e0| 63 88 aa 69 29 e2 e4 0e | 09 53 5c 22 88 d0 1e 25 |c..i)...|.S\"...%|
|000003f0| 0e 25 ca 57 ab b4 e6 0e | 06 0e 25 0e 0b 5f 53 5c |.%.W....|..%.._S\|
|00000400| 22 88 0e 25 ce 5c 5c 16 | 25 0e 06 1e 17 0e 17 0d |"..%.\\.|%.......|
|00000410| 57 ab 96 0e 17 54 16 17 | e7 d0 21 88 e8 63 88 e9 |W....T..|..!..c..|
|00000420| d0 21 88 ea d0 21 88 aa | 64 29 aa 46 29 c1 c4 1e |.!...!..|d).F)...|
|00000430| 2b 89 1e 17 08 57 ab b7 | 0e 13 08 0e 17 5a d0 5a |+....W..|.....Z.Z|
|00000440| 48 89 16 2b c1 0d 0e 17 | 5a 49 88 e6 0e 16 41 0e |H..+....|ZI....A.|
|00000450| 16 40 08 0e 17 5a 5a 5c | 22 88 ec 0e 2b ed c4 23 |.@...ZZ\|"...+..#|
|00000460| 88 0e 16 89 41 53 a1 88 | 0e 17 54 89 16 17 aa 45 |....AS..|..T....E|
|00000470| 2a ed 16 1f ee c1 21 88 | c4 89 1e 2f 1e 30 f1 08 |*.....!.|.../.0..|
|00000480| 53 0e 16 0e 15 0e 14 24 | 88 2a 65 62 88 f2 f3 21 |S......$|.*eb...!|
|00000490| 88 ed 16 1f f4 20 88 ee | c1 21 2e 5c 6e 87 22 20 |..... ..|.!.\n." |
|000004a0| 5b 6e 72 69 6e 67 73 20 | 30 20 65 72 72 6f 72 20 |[nrings |0 error |
|000004b0| 22 4e 65 67 61 74 69 76 | 65 20 6e 75 6d 62 65 72 |"Negativ|e number|
|000004c0| 20 6f 66 20 72 69 6e 67 | 73 22 20 6e 69 6c 20 66 | of ring|s" nil f|
|000004d0| 6c 6f 6f 72 2d 72 6f 77 | 20 66 6c 79 2d 72 6f 77 |loor-row| fly-row|
|000004e0| 20 77 69 6e 64 6f 77 2d | 68 65 69 67 68 74 20 73 | window-|height s|
|000004f0| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 77 |elected-|window w|
|00000500| 69 6e 64 6f 77 2d 77 69 | 64 74 68 20 36 20 70 6f |indow-wi|dth 6 po|
|00000510| 6c 65 2d 73 70 61 63 69 | 6e 67 20 64 65 6c 65 74 |le-spaci|ng delet|
|00000520| 65 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 73 20 |e-other-|windows |
|00000530| 22 57 69 6e 64 6f 77 20 | 69 73 20 74 6f 6f 20 73 |"Window |is too s|
|00000540| 6d 61 6c 6c 20 28 6e 65 | 65 64 20 61 74 20 6c 65 |mall (ne|ed at le|
|00000550| 61 73 74 20 25 64 78 25 | 64 29 22 20 32 20 33 20 |ast %dx%|d)" 2 3 |
|00000560| 31 20 35 20 6d 61 6b 65 | 2d 76 65 63 74 6f 72 20 |1 5 make|-vector |
|00000570| 72 69 6e 67 73 20 70 6f | 6c 65 2d 33 20 70 6f 6c |rings po|le-3 pol|
|00000580| 65 2d 32 20 70 6f 6c 65 | 2d 31 20 69 20 76 65 63 |e-2 pole|-1 i vec|
|00000590| 74 6f 72 20 6d 61 6b 65 | 2d 73 74 72 69 6e 67 20 |tor make|-string |
|000005a0| 3f 30 20 31 30 20 3f 5c | 20 20 73 77 69 74 63 68 |?0 10 ?\| switch|
|000005b0| 2d 74 6f 2d 62 75 66 66 | 65 72 20 22 2a 48 61 6e |-to-buff|er "*Han|
|000005c0| 6f 69 2a 22 20 62 75 66 | 66 65 72 2d 72 65 61 64 |oi*" buf|fer-read|
|000005d0| 2d 6f 6e 6c 79 20 62 75 | 66 66 65 72 2d 64 69 73 |-only bu|ffer-dis|
|000005e0| 61 62 6c 65 2d 75 6e 64 | 6f 20 65 72 61 73 65 2d |able-und|o erase-|
|000005f0| 62 75 66 66 65 72 20 69 | 6e 73 65 72 74 2d 63 68 |buffer i|nsert-ch|
|00000600| 61 72 20 3f 5c 6e 20 3f | 5c 3d 20 6e 20 68 61 6e |ar ?\n ?|\= n han|
|00000610| 6f 69 2d 74 6f 70 6f 73 | 20 6e 65 78 74 2d 6c 69 |oi-topos| next-li|
|00000620| 6e 65 20 3f 5c 7c 20 64 | 65 6c 65 74 65 2d 63 68 |ne ?\| d|elete-ch|
|00000630| 61 72 20 62 61 63 6b 77 | 61 72 64 2d 63 68 61 72 |ar backw|ard-char|
|00000640| 20 72 69 6e 67 20 68 61 | 6e 6f 69 2d 64 72 61 77 | ring ha|noi-draw|
|00000650| 2d 72 69 6e 67 20 74 20 | 73 69 74 2d 66 6f 72 20 |-ring t |sit-for |
|00000660| 63 6f 6c 75 6d 6e 2d 6e | 75 6d 62 65 72 2d 6d 6f |column-n|umber-mo|
|00000670| 64 65 20 6c 69 6e 65 2d | 6e 75 6d 62 65 72 2d 6d |de line-|number-m|
|00000680| 6f 64 65 20 68 61 6e 6f | 69 30 20 6d 65 73 73 61 |ode hano|i0 messa|
|00000690| 67 65 20 22 44 6f 6e 65 | 22 20 66 6f 72 63 65 2d |ge "Done|" force-|
|000006a0| 6d 6f 64 65 2d 6c 69 6e | 65 2d 75 70 64 61 74 65 |mode-lin|e-update|
|000006b0| 5d 20 31 30 20 28 23 24 | 20 2e 20 36 37 31 29 20 |] 10 (#$| . 671) |
|000006c0| 28 6c 69 73 74 20 28 69 | 66 20 28 6e 75 6c 6c 20 |(list (i|f (null |
|000006d0| 63 75 72 72 65 6e 74 2d | 70 72 65 66 69 78 2d 61 |current-|prefix-a|
|000006e0| 72 67 29 20 33 20 28 70 | 72 65 66 69 78 2d 6e 75 |rg) 3 (p|refix-nu|
|000006f0| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 63 75 72 72 |meric-va|lue curr|
|00000700| 65 6e 74 2d 70 72 65 66 | 69 78 2d 61 72 67 29 29 |ent-pref|ix-arg))|
|00000710| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 68 |)]).(def|alias 'h|
|00000720| 61 6e 6f 69 30 20 23 5b | 28 6e 20 66 72 6f 6d 20 |anoi0 #[|(n from |
|00000730| 74 6f 20 77 6f 72 6b 29 | 20 22 c0 20 ab 86 c1 c2 |to work)| ". ....|
|00000740| c3 43 5c 22 87 0c c5 57 | ae 9d c6 0c 53 0e 07 0e |.C\"...W|....S...|
|00000750| 08 0e 09 24 88 ca 0c 0e | 07 0e 09 23 88 c6 0c 53 |...$....|...#...S|
|00000760| 0e 08 0e 09 0e 07 24 87 | 22 20 5b 69 6e 70 75 74 |......$.|" [input|
|00000770| 2d 70 65 6e 64 69 6e 67 | 2d 70 20 73 69 67 6e 61 |-pending|-p signa|
|00000780| 6c 20 71 75 69 74 20 22 | 49 20 63 61 6e 20 74 65 |l quit "|I can te|
|00000790| 6c 6c 20 79 6f 75 27 76 | 65 20 68 61 64 20 65 6e |ll you'v|e had en|
|000007a0| 6f 75 67 68 22 20 6e 20 | 30 20 68 61 6e 6f 69 30 |ough" n |0 hanoi0|
|000007b0| 20 66 72 6f 6d 20 77 6f | 72 6b 20 74 6f 20 68 61 | from wo|rk to ha|
|000007c0| 6e 6f 69 2d 6d 6f 76 65 | 2d 72 69 6e 67 5d 20 35 |noi-move|-ring] 5|
|000007d0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 68 61 |]).(defa|lias 'ha|
|000007e0| 6e 6f 69 2d 6d 6f 76 65 | 2d 72 69 6e 67 20 23 5b |noi-move|-ring #[|
|000007f0| 28 6e 20 66 72 6f 6d 20 | 74 6f 29 20 22 08 09 48 |(n from |to) "..H|
|00000800| c2 1b 89 1c c5 48 0e 06 | 40 09 5a c7 5a 0e 08 40 |.....H..|@.Z.Z..@|
|00000810| 09 5a c7 5a 0e 08 41 1e | 09 1e 5c 6e 1e 0b 1e 0c |.Z.Z..A.|..\n....|
|00000820| cd 0e 0c 0e 0b 5c 22 88 | 0e 0c 0e 0e 56 ab 9c cf |.....\".|....V...|
|00000830| 0c c2 d0 23 88 d1 c7 21 | 88 cf 0c d0 c2 23 88 d2 |...#...!|.....#..|
|00000840| c5 21 88 0e 0c 53 89 16 | 0c aa 5f 0e 06 89 41 54 |.!...S..|.._...AT|
|00000850| a1 88 0e 5c 6e 0e 0b 6b | ac c4 0e 5c 6e 0e 0b 56 |...\n..k|...\n..V|
|00000860| ab 9b c7 7f 88 d3 d4 21 | 88 c5 79 88 d5 89 b1 02 |.......!|..y.....|
|00000870| 88 d2 c5 21 88 0e 0b 54 | 54 16 0b aa 57 0e 5c 6e |...!...T|T...W.\n|
|00000880| 0e 0b 57 ab 50 c5 79 88 | d6 d4 21 88 c7 7f 88 d5 |..W.P.y.|..!.....|
|00000890| 89 b1 02 88 d2 c5 21 88 | 0e 0b 53 53 16 0b aa 35 |......!.|..SS...5|
|000008a0| cd 0e 0e 0e 5c 6e 5c 22 | 88 0e 0c 0e 09 57 ab a0 |....\n\"|.....W..|
|000008b0| cf 0c c2 0e 0c 0e 0e 56 | 23 88 d7 c7 21 88 cf 0c |.......V|#...!...|
|000008c0| d0 c2 23 88 d2 c5 21 88 | 0e 0c 54 89 16 0c aa 5b |..#...!.|..T....[|
|000008d0| 0c c5 0e 09 49 88 0e 08 | 89 41 53 a1 2e 06 87 22 |....I...|.AS...."|
|000008e0| 20 5b 72 69 6e 67 73 20 | 6e 20 6e 69 6c 20 62 75 | [rings |n nil bu|
|000008f0| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 72 |ffer-rea|d-only r|
|00000900| 69 6e 67 20 30 20 66 72 | 6f 6d 20 31 20 74 6f 20 |ing 0 fr|om 1 to |
|00000910| 64 73 74 2d 72 6f 77 20 | 64 73 74 2d 63 6f 6c 20 |dst-row |dst-col |
|00000920| 63 6f 6c 20 72 6f 77 20 | 68 61 6e 6f 69 2d 74 6f |col row |hanoi-to|
|00000930| 70 6f 73 20 66 6c 79 2d | 72 6f 77 20 68 61 6e 6f |pos fly-|row hano|
|00000940| 69 2d 64 72 61 77 2d 72 | 69 6e 67 20 74 20 70 72 |i-draw-r|ing t pr|
|00000950| 65 76 69 6f 75 73 2d 6c | 69 6e 65 20 73 69 74 2d |evious-l|ine sit-|
|00000960| 66 6f 72 20 64 65 6c 65 | 74 65 2d 62 61 63 6b 77 |for dele|te-backw|
|00000970| 61 72 64 2d 63 68 61 72 | 20 32 20 3f 5c 20 20 64 |ard-char| 2 ?\ d|
|00000980| 65 6c 65 74 65 2d 63 68 | 61 72 20 6e 65 78 74 2d |elete-ch|ar next-|
|00000990| 6c 69 6e 65 5d 20 36 5d | 29 0a 28 64 65 66 61 6c |line] 6]|).(defal|
|000009a0| 69 61 73 20 27 68 61 6e | 6f 69 2d 64 72 61 77 2d |ias 'han|oi-draw-|
|000009b0| 72 69 6e 67 20 23 5b 28 | 72 69 6e 67 20 66 31 20 |ring #[(|ring f1 |
|000009c0| 66 32 29 20 22 8a 08 ab | 85 09 c2 48 aa 83 09 c3 |f2) "...|...H....|
|000009d0| 48 89 1c 47 1d c6 0d 21 | 88 0c 63 88 0e 07 ad 8d |H..G...!|..c.....|
|000009e0| c8 0d 54 c3 a5 21 88 c6 | c2 21 88 c9 63 2b 87 22 |..T..!..|.!..c+."|
|000009f0| 20 5b 66 31 20 72 69 6e | 67 20 31 20 32 20 73 74 | [f1 rin|g 1 2 st|
|00000a00| 72 69 6e 67 20 6c 65 6e | 20 64 65 6c 65 74 65 2d |ring len| delete-|
|00000a10| 63 68 61 72 20 66 32 20 | 62 61 63 6b 77 61 72 64 |char f2 |backward|
|00000a20| 2d 63 68 61 72 20 3f 5c | 7c 5d 20 34 5d 29 0a 28 |-char ?\||] 4]).(|
|00000a30| 70 72 6f 76 69 64 65 20 | 27 68 61 6e 6f 69 29 0a |provide |'hanoi).|
+--------+-------------------------+-------------------------+--------+--------+
